home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 November / 1985-11.d64 / auto file.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  556b  |  16 lines
  1. 100 poke53280,14:poke53281,14
  2. 110 print"[147]  this program will create a file"
  3. 120 print"  on your disk called "chr$(34)".dir"chr$(34)"."
  4. 130 print"  since the gazette disk is write"
  5. 140 print"  protected, the file "chr$(34)".dir"chr$(34)" has"
  6. 150 print"  already been created on this disk."
  7. 160 print"  to use "chr$(34)"auto file"chr$(34)" with another"
  8. 170 print"  disk, copy it onto the disk and
  9. 180 [153]"  then load and run it.
  10. 190 print"[144]    [press any key to reload menu][154]"
  11. 200 poke198,0:wait198,1:print"[147]";
  12. 1000 ifa=0 then a=1:load"nt",8
  13. 1010 a$="run"+chr$(13):poke198,len(a$)
  14. 1020 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next
  15. 1030 new
  16.